From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 23 May 1994 07:41:31 +0000 (+0000)
Subject: (popup-dialog-box): Bind meaning with let.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~91406
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=f1e20cc2080c15053b391213ad731c551d750721;p=emacs.git

(popup-dialog-box): Bind meaning with let.
(current-menubar): Add defvar.
---

diff --git a/lisp/emacs-lisp/lmenu.el b/lisp/emacs-lisp/lmenu.el
index a8fa759d4d2..80fb1e084c6 100644
--- a/lisp/emacs-lisp/lmenu.el
+++ b/lisp/emacs-lisp/lmenu.el
@@ -27,6 +27,8 @@
 
 ;; Arrange to use current-menubar to set up part of the menu bar.
 
+(defvar current-menubar)
+
 (setq recompute-lucid-menubar 'recompute-lucid-menubar)
 (defun recompute-lucid-menubar ()
   (define-key lucid-menubar-map [menu-bar]
@@ -179,7 +181,7 @@ The syntax, more precisely:
   (let ((name (car data))
 	(tail (cdr data))
 	converted
-	choice)
+	choice meaning)
     (while tail
       (if (null (car tail))
 	  (setq converted (cons nil converted))